home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •AdventureLand• / Adventures / HyperQuest 1.03 ••• / HyperQuest 1.03 еее / card_18337.txt < prev    next >
Text File  |  1990-10-02  |  3KB  |  85 lines
  1. -- card: 18337 from stack: in.03 –µ–µ–µ
  2. -- bmap block id: 12831
  3. -- flags: 0000
  4. -- background id: 10462
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global knifeLoc,noduleLoc,ladderLoc,bombLoc,keyLoc,gemLoc,orbLoc,invLoc
  9.   global cardID,flood,blastDam,holeDam,blastWall,trollDead,hortaDead
  10.   global ladderPit,ladderHole,pillarEat,chase,blasting,demonDead
  11.   global examFlag,takeFlag,useFlag,dropFlag,dropRoom,carried
  12.   global eDoorOpen,sDoorOpen,invFlag,holdID,causeOfDeath,holdUserLevel
  13.   global initFlag
  14.  
  15.   hide msg
  16.   set the blindTyping to false
  17.   hide menuBar
  18.   put true into initFlag
  19.   choose browse tool
  20.   hide card button id 18 of card id 7465
  21.   set the cursor to 4
  22.   set the lockScreen to true
  23.  
  24.   -- Initialize the flags and counters:
  25.   put "10613" into invLoc
  26.   put "0" into carried
  27.   put false into examFlag
  28.   put false into takeFlag
  29.   put false into dropFlag
  30.   put false into useFlag
  31.   put false into invFlag
  32.   put false into pillarEat
  33.   put false into trollDead
  34.   put false into hortaDead
  35.   put false into demonDead
  36.   put false into eDoorOpen
  37.   put false into sDoorOpen
  38.   put false into flood
  39.   put false into blastWall
  40.   put false into blastDam
  41.   put false into holeDam
  42.   put false into ladderPit
  43.   put false into ladderHole
  44.   put "generic" into causeOfDeath
  45.   put "0" into chase
  46.   put "0" into blasting
  47.  
  48.   put the number of cards into numCards
  49.   repeat with cardCount = 5 to numCards-1
  50.     put 1 into field init of card cardCount
  51.   end repeat
  52.  
  53.   hide card button knife of card id invLoc
  54.   hide card button ladder of card id invLoc
  55.   hide card button nodule of card id invLoc
  56.   hide card button bomb of card id invLoc
  57.   hide card button gem of card id invLoc
  58.   hide card button key of card id invLoc
  59.   hide card button orb of card id invLoc
  60.  
  61.   -- Placement of the objects:
  62.   put "33443" into knifeLoc
  63.   put "24636" into ladderLoc
  64.   put "22580" into noduleLoc
  65.   put "6984" into bombLoc
  66.   put "32989" into keyLoc
  67.   put "28895" into gemLoc
  68.   put "13815" into orbLoc
  69.   hide card button id 17 of card id 7465
  70.  
  71.   -- Hide the pictures of the Horta monster:
  72.   show card button "hortaCover" of card id 3186
  73.   show card button "hortaCover" of card id 26200
  74.   show card button "hortaCover" of card id 26754
  75.   show card button "hortaCover" of card id 22580
  76.   show card button "hortaCover" of card id 23127
  77.   show card button "hortaCover" of card id 11722
  78.  
  79.   -- Hide all the fields on the death card just in case:
  80.   go card id 3409
  81.   -- Go finish the intro:
  82.   go card id 11334
  83.   put false into initFlag
  84. end openCard
  85.